home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ablood1a / module1.bas < prev    next >
Encoding:
BASIC Source File  |  1998-10-11  |  396 b   |  10 lines
  1. Attribute VB_Name = "Module1"
  2. 'all of this was done by me, i did not copy it from nobody. I got it from the
  3. 'api text viewer, so shut up! :)
  4.  
  5. Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
  6.  
  7. Public Function playwav(ByVal wName As String)
  8.     PlaySound wName, Form1.hDC, 0
  9. End Function
  10.